home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The X-Philes (2nd Revision)
/
The X-Philes Number 1 (1995).iso
/
xphiles
/
hp48hor1
/
aclok.src
< prev
next >
Wrap
Text File
|
1990-10-18
|
2KB
|
41 lines
%%HP: T(3)A(D)F(.);
@ by Pete Stoppani
DIR
CLOK
\<< RCLF -16 SF -17 CF -18 CF -19 SF ERASE 'PPAR' PURGE PICT { # 34d # 1d }
FACE GOR { # 0d # 0d } PVIEW GET.TMS \-> pt pm ps
\<< pt HR.HND pm MIN.HND ps SEC.HND 1 WAIT
DO GET.TMS \-> t m s
\<<
IF 's\=/ ps'
THEN ps SEC.HND s SEC.HND s 'ps' STO
END
IF 'm\=/ pm'
THEN
IF 'm MOD 12==0'
THEN pt HR.HND t HR.HND t 'pt' STO
END pm MIN.HND m MIN.HND m 'pm' STO
END
\>>
UNTIL KEY
END DROP STOF 'PPAR' PURGE
\>>
\>>
SEC.HND
\<< 60 / 360 * NEG 90 + \-> d
\<< 2.3 d \->V2 2.7 d \->V2 TLINE
\>>
\>>
MIN.HND
\<< 2.5 SWAP 60 / 360 * NEG 90 + \->V2 (0,0) TLINE
\>>
HR.HND
\<< 1.55 SWAP HMS\-> 12 MOD 30 * NEG 90 + \->V2 (0,0) SWAP TLINE
\>>
FACE @ [Note: see NFACE for a new, improved clock face! -jkh-]
GROB 63 63 000000CFF100000000000C380E1000000000830800E00000000060080003000000081000000C000000041000000410000002200000042000008120000002C0000040000000000100002000000000020000100000000004000800000000000800080000000000080004000000000000100200000000000020010000000000004003000000000000608C00000000000890800000000000008040000000000000014000000000000001400000000000000120000000000000022000000000000002200000000000000220000000000000021000000000000004100000000000000410000000000000041000000E300000041000000220000004F00000022000008710000002200000041000000E30000004100000000000000410000000000000041000000000000004200000000000000220000000000000022000000000000002200000000000000240000000000000014000000000000001400000000000000180000000000000808800000000000880070000000000007001000000000000400200000000000020040000000000001008000000000008000800000000000800001000000000040000200000000002000040000000000100008120000002C0000002200000042000000410000004100000081000000C000000006008000300000000830800E0000000000C380E100000000000CFF1000000
GET.TMS
\<< TIME DUP FP 100 * DUP IP SWAP FP 100 * IP
\>>
END